
(let ((w (warp-linear 20 440)))
  (map (lambda (value)
	 (let ((result (w 'map value)))
	   (list value result (w 'unmap result))))
       (iota 11 0 1/10)))

(let ((w (warp-linear-integer 20 440)))
  (map (lambda (value)
	 (let ((result (w 'map value)))
	   (list value result (w 'unmap result))))
       (iota 11 0 1/10)))

(let ((w (warp-exponential 20 440)))
  (map (lambda (value)
	 (let ((result (w 'map value)))
	   (list value result (w 'unmap result))))
       (iota 11 0 1/10)))

(let ((w ((warp-make-warp-curve 20) 440 0.4)))
  (map (lambda (value)
	 (let ((result (w 'map value)))
	   (list value result (w 'unmap result))))
       (iota 11 0 1/10)))

(let ((w (warp-cosine 20 440)))
  (map (lambda (value)
	 (let ((result (w 'map value)))
	   (list value result (w 'unmap result))))
       '(0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1)))

(let ((w (warp-sine 20 440)))
  (map (lambda (value)
	 (let ((result (w 'map value)))
	   (list value result (w 'unmap result))))
       '(0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1)))

(let ((w (warp-fader 0 1)))
  (map (lambda (value)
	 (let ((result (w 'map value)))
	   (list value result (w 'unmap result))))
       '(0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1)))

(let ((w (warp-db-fader 0 1)))
  (map (lambda (value)
	 (let ((result (w 'map value)))
	   (list value result (w 'unmap result))))
       '(0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1)))
